home *** CD-ROM | disk | FTP | other *** search
Text File | 1992-07-15 | 5.6 KB | 272 lines | [TEXT/MPS ] |
- /*------------------------------------------------------------------------------
-
- Sample.r - Resources for the Sample Application
-
- Copyright Apple Computer, Inc. 1985-1987
- All rights reserved.
-
- ------------------------------------------------------------------------------*/
-
- #include "Types.r"
- include "MenuDef.res";
-
- /* These define's are used in the MENU resources to disable specific
- menu items. */
- #define AllItems 0b1111111111111111111111111111111 /* 31 flags */
- #define MenuItem1 0b00001
- #define MenuItem2 0b00010
- #define MenuItem3 0b00100
- #define MenuItem4 0b01000
- #define MenuItem5 0b10000
- #define MenuItem6 0b100000
-
- resource 'WIND' (128, "Sample Window") {
- {64, 60, 314, 460},
- documentProc, visible, noGoAway, 0x0, "Sample Window"
- };
-
- resource 'DLOG' (128, "About Sample…") {
- {66, 102, 224, 400},
- dBoxProc, visible, noGoAway, 0x0, 128, ""
- };
-
- resource 'DITL' (128) {
- {
- /* 1 */ {130, 205, 150, 284},
- button {
- enabled,
- "Continue"
- };
- /* 2 */ {104, 144, 120, 296}, /* SourceLanguage Item */
- staticText {
- disabled,
- ""
- };
- /* 3 */ {88, 144, 105, 218}, /* Author Item */
- staticText {
- disabled,
- ""
- };
- /* 4 */ {8, 32, 26, 273},
- staticText {
- disabled,
- "Macintosh Programmer's Workshop"
- };
- /* 5 */ {32, 80, 50, 212},
- staticText {
- disabled,
- "Sample Application"
- };
- /* 6 */ {56, 16, 74, 281},
- staticText {
- enabled, "Copyright © 1985-1987 Apple Computer"
- };
- /* 7 */ {88, 16, 104, 144},
- staticText {
- enabled, "Source Language:"
- };
- /* 8 */ {104, 16, 120, 144},
- staticText {
- enabled, "Brought to you by:"
- }
- }
- };
-
- resource 'MENU' (128, "Apple", preload) {
- 128, textMenuProc,
- AllItems & ~MenuItem2, /* Disable item #2 */
- enabled, apple,
- {
- "About Sample…",
- noicon, nokey, nomark, plain;
- "-",
- noicon, nokey, nomark, plain
- }
- };
-
- resource 'MENU' (129, "File", preload) {
- 129, textMenuProc,
- allEnabled,
- enabled, "File",
- {
- "Quit",
- noicon, "Q", nomark, plain
- }
- };
-
- resource 'MENU' (126, "File", preload) {
- 126, textMenuProc,
- allEnabled,
- enabled, "File",
- {
- "Quit",
- noicon, "Q", nomark, plain
- }
- };
-
-
- resource 'MENU' (130, "Edit", preload) {
- 130, textMenuProc,
- AllItems & ~(MenuItem1 | MenuItem2 | MenuItem6), /* Disable items #1 & #2 */
- enabled, "Edit",
- {
- "Undo",
- noicon, "Z", nomark, plain;
- "-",
- noicon, nokey, nomark, plain;
- "Cut",
- noicon, "X", nomark, plain;
- "Copy",
- noicon, "C", nomark, plain;
- "Paste",
- noicon, "V", nomark, plain;
- "Clear",
- noicon, hierarchicalMenu, "\0x7E", plain
- }
- };
-
-
- type 'PSMP' as 'STR ';
-
- resource 'PSMP' (0) {
- "Sample Pascal Application - Version 2.0.2"
- };
-
-
- resource 'ICN#' (128) {
- { /* array: 2 elements */
- /* [1] */
- $"0000 0000 0000 0000 0000 0000 0000 0000"
- $"0000 0000 07FF FF00 0600 0080 0500 0040"
- $"0480 0020 0440 0010 0420 0008 0410 0004"
- $"040F FFFE 0408 0002 0408 0002 0408 0002"
- $"0408 0002 0408 0002 0408 0002 0408 0002"
- $"0408 0002 0408 0002 0408 0002 0408 0002"
- $"0208 0002 0108 0002 0088 0002 0048 0002"
- $"0028 0002 0018 0002 000F FFFE",
- /* [2] */
- $"000F FFFC 001F FFF8 003F FFF0 007F FFE0"
- $"00FF FFC0 0600 0080 05FF FF80 0792 49C0"
- $"07C9 24E0 07E4 9270 07F2 4918 07FF FFFC"
- $"07FF FFFE 07FF FFFE 07FF FFFE 07FF FFFE"
- $"07FF FFFE 07FF FFFE 07FF FFFE 07FF FFFE"
- $"07FF FFFE 07FF FFFE 07FF FFFE 07FF FFFE"
- $"03FF FFFE 01FF FFFE 00FF FFFE 007F FFFE"
- $"003F FFFE 001F FFFE 000F FFFE"
- }
- };
-
-
- resource 'BNDL' (128) {
- 'PSMP',
- 0,
- {
- 'ICN#',
- {
- 0, 128
- },
- 'FREF',
- {
- 0, 128
- }
- }
- };
-
-
- resource 'FREF' (128) {
- 'APPL',
- 0,
- ""
- };
-
- resource 'MENU' (26, "Case") {
- 26,
- 128,
- 0x7BF,
- enabled,
- " ",
- { /* array: 4 elements */
- /* [1] */
- "Upper Case", noIcon, "U", noMark, plain,
- /* [2] */
- "Lower Case", noIcon, "L", noMark, plain,
- /* [3] */
- "Title", 1, "T", noMark, plain,
- /* [4] */
- "Small Caps", noIcon, "S", noMark, plain
- }
- };
-
- resource 'MENU' (27, "Case") {
- 27,
- 128,
- 0x7BF,
- enabled,
- " ",
- { /* array: 4 elements */
- /* [1] */
- "Upper Case", noIcon, noKey, noMark, plain,
- /* [2] */
- "Lower Case", noIcon, noKey, noMark, plain,
- /* [3] */
- "Title", noIcon, hierarchicalMenu, "\0x1A", plain,
- /* [4] */
- "Small Caps", noIcon, noKey, noMark, plain
- }
- };
-
- resource 'MENU' (28, "Case") {
- 28,
- TextMenuProc,
- 0x7BF,
- enabled,
- " ",
- { /* array: 4 elements */
- /* [1] */
- "Upper Case", noIcon, noKey, noMark, plain,
- /* [2] */
- "Lower Case", noIcon, noKey, noMark, plain,
- /* [3] */
- "Title", noIcon, noKey, noMark, plain,
- /* [4] */
- "Small Caps", noIcon, noKey, noMark, plain
- }
- };
-
- resource 'MENU' (11, "Style") {
- 11,
- 128,
- 0b1111111111111111111111111111111,
- enabled,
- "Style",
- { /* array: 16 elements */
- "Superscript", noIcon, hierarchicalMenu, "\0x1A", plain,
- /* [11] */
- "Subscript", noIcon, hierarchicalMenu, "\0x1B", plain,
- /* [12] */
- "Make this sucker", noIcon, hierarchicalMenu, "\0x1C", plain
- }
- };
-
- resource 'SIZE' (-1) {
- dontSaveScreen,
- acceptSuspendResumeEvents,
- enableOptionSwitch,
- canBackground, /* we can background; we don't currently, but our sleep value */
- /* guarantees we don't hog the Mac while we are in the background */
- multiFinderAware, /* this says we do our own activate/deactivate; don't fake us out */
- backgroundAndForeground, /* this is definitely not a background-only application! */
- GetFrontClicks, /* change this is if you want "do first click" behavior like the Finder */
- ignoreChildDiedEvents, /* essentially, I'm not a debugger (sub-launching) */
- not32BitCompatible, /* this app should not be run in 32-bit address space */
- reserved,
- reserved,
- reserved,
- reserved,
- reserved,
- reserved,
- reserved,
- 300 * 1024,
- 128 * 1024
- };
-